VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsWinExStyle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

' Name:     Windows Information Viewer
' Author:   Chong Long Choo
' Date:     06 September 1999

Private mvarWS_EX_DLGMODALFRAME As Boolean
Private mvarWS_EX_NOPARENTNOTIFY As Boolean
Private mvarWS_EX_TOPMOST As Boolean
Private mvarWS_EX_ACCEPTFILES As Boolean
Private mvarWS_EX_TRANSPARENT As Boolean
Private mvarWS_EX_MDICHILD As Boolean
Private mvarWS_EX_TOOLWINDOW As Boolean
Private mvarWS_EX_WINDOWEDGE As Boolean
Private mvarWS_EX_CLIENTEDGE As Boolean
Private mvarWS_EX_CONTEXTHELP As Boolean
Private mvarWS_EX_RIGHT As Boolean
Private mvarWS_EX_LEFT As Boolean
Private mvarWS_EX_RTLREADING As Boolean
Private mvarWS_EX_LTRREADING As Boolean
Private mvarWS_EX_LEFTSCROLLBAR As Boolean
Private mvarWS_EX_RIGHTSCROLLBAR As Boolean
Private mvarWS_EX_CONTROLPARENT As Boolean
Private mvarWS_EX_STATICEDGE As Boolean
Private mvarWS_EX_APPWINDOW As Boolean
Private mvarWS_EX_OVERLAPPEDWINDOW As Boolean
Private mvarWS_EX_PALETTEWINDOW As Boolean
Private mvarWS_EX_LAYERED As Boolean
Private mvarWS_EX_NOINHERITLAYOUT As Boolean
Private mvarWS_EX_LAYOUTRTL As Boolean
Private mvarWS_EX_NOACTIVATE As Boolean

Public Property Let WS_EX_NOACTIVATE(ByVal vData As Boolean)
    mvarWS_EX_NOACTIVATE = vData
End Property

Public Property Get WS_EX_NOACTIVATE() As Boolean
    WS_EX_NOACTIVATE = mvarWS_EX_NOACTIVATE
End Property

Public Property Let WS_EX_LAYOUTRTL(ByVal vData As Boolean)
    mvarWS_EX_LAYOUTRTL = vData
End Property

Public Property Get WS_EX_LAYOUTRTL() As Boolean
    WS_EX_LAYOUTRTL = mvarWS_EX_LAYOUTRTL
End Property

Public Property Let WS_EX_NOINHERITLAYOUT(ByVal vData As Boolean)
    mvarWS_EX_NOINHERITLAYOUT = vData
End Property

Public Property Get WS_EX_NOINHERITLAYOUT() As Boolean
    WS_EX_NOINHERITLAYOUT = mvarWS_EX_NOINHERITLAYOUT
End Property

Public Property Let WS_EX_LAYERED(ByVal vData As Boolean)
    mvarWS_EX_LAYERED = vData
End Property

Public Property Get WS_EX_LAYERED() As Boolean
    WS_EX_LAYERED = mvarWS_EX_LAYERED
End Property

Public Property Let WS_EX_PALETTEWINDOW(ByVal vData As Boolean)
    mvarWS_EX_PALETTEWINDOW = vData
End Property

Public Property Get WS_EX_PALETTEWINDOW() As Boolean
    WS_EX_PALETTEWINDOW = mvarWS_EX_PALETTEWINDOW
End Property

Public Property Let WS_EX_OVERLAPPEDWINDOW(ByVal vData As Boolean)
    mvarWS_EX_OVERLAPPEDWINDOW = vData
End Property

Public Property Get WS_EX_OVERLAPPEDWINDOW() As Boolean
    WS_EX_OVERLAPPEDWINDOW = mvarWS_EX_OVERLAPPEDWINDOW
End Property

Public Property Let WS_EX_APPWINDOW(ByVal vData As Boolean)
    mvarWS_EX_APPWINDOW = vData
End Property

Public Property Get WS_EX_APPWINDOW() As Boolean
    WS_EX_APPWINDOW = mvarWS_EX_APPWINDOW
End Property

Public Property Let WS_EX_STATICEDGE(ByVal vData As Boolean)
    mvarWS_EX_STATICEDGE = vData
End Property

Public Property Get WS_EX_STATICEDGE() As Boolean
    WS_EX_STATICEDGE = mvarWS_EX_STATICEDGE
End Property

Public Property Let WS_EX_CONTROLPARENT(ByVal vData As Boolean)
    mvarWS_EX_CONTROLPARENT = vData
End Property

Public Property Get WS_EX_CONTROLPARENT() As Boolean
    WS_EX_CONTROLPARENT = mvarWS_EX_CONTROLPARENT
End Property

Public Property Let WS_EX_RIGHTSCROLLBAR(ByVal vData As Boolean)
    mvarWS_EX_RIGHTSCROLLBAR = vData
End Property

Public Property Get WS_EX_RIGHTSCROLLBAR() As Boolean
    WS_EX_RIGHTSCROLLBAR = mvarWS_EX_RIGHTSCROLLBAR
End Property

Public Property Let WS_EX_LEFTSCROLLBAR(ByVal vData As Boolean)
    mvarWS_EX_LEFTSCROLLBAR = vData
End Property

Public Property Get WS_EX_LEFTSCROLLBAR() As Boolean
    WS_EX_LEFTSCROLLBAR = mvarWS_EX_LEFTSCROLLBAR
End Property

Public Property Let WS_EX_LTRREADING(ByVal vData As Boolean)
    mvarWS_EX_LTRREADING = vData
End Property

Public Property Get WS_EX_LTRREADING() As Boolean
    WS_EX_LTRREADING = mvarWS_EX_LTRREADING
End Property

Public Property Let WS_EX_RTLREADING(ByVal vData As Boolean)
    mvarWS_EX_RTLREADING = vData
End Property

Public Property Get WS_EX_RTLREADING() As Boolean
    WS_EX_RTLREADING = mvarWS_EX_RTLREADING
End Property

Public Property Let WS_EX_LEFT(ByVal vData As Boolean)
    mvarWS_EX_LEFT = vData
End Property

Public Property Get WS_EX_LEFT() As Boolean
    WS_EX_LEFT = mvarWS_EX_LEFT
End Property

Public Property Let WS_EX_RIGHT(ByVal vData As Boolean)
    mvarWS_EX_RIGHT = vData
End Property

Public Property Get WS_EX_RIGHT() As Boolean
    WS_EX_RIGHT = mvarWS_EX_RIGHT
End Property

Public Property Let WS_EX_CONTEXTHELP(ByVal vData As Boolean)
    mvarWS_EX_CONTEXTHELP = vData
End Property

Public Property Get WS_EX_CONTEXTHELP() As Boolean
    WS_EX_CONTEXTHELP = mvarWS_EX_CONTEXTHELP
End Property

Public Property Let WS_EX_CLIENTEDGE(ByVal vData As Boolean)
    mvarWS_EX_CLIENTEDGE = vData
End Property

Public Property Get WS_EX_CLIENTEDGE() As Boolean
    WS_EX_CLIENTEDGE = mvarWS_EX_CLIENTEDGE
End Property

Public Property Let WS_EX_WINDOWEDGE(ByVal vData As Boolean)
    mvarWS_EX_WINDOWEDGE = vData
End Property

Public Property Get WS_EX_WINDOWEDGE() As Boolean
    WS_EX_WINDOWEDGE = mvarWS_EX_WINDOWEDGE
End Property

Public Property Let WS_EX_TOOLWINDOW(ByVal vData As Boolean)
    mvarWS_EX_TOOLWINDOW = vData
End Property

Public Property Get WS_EX_TOOLWINDOW() As Boolean
    WS_EX_TOOLWINDOW = mvarWS_EX_TOOLWINDOW
End Property

Public Property Let WS_EX_MDICHILD(ByVal vData As Boolean)
    mvarWS_EX_MDICHILD = vData
End Property

Public Property Get WS_EX_MDICHILD() As Boolean
    WS_EX_MDICHILD = mvarWS_EX_MDICHILD
End Property

Public Property Let WS_EX_TRANSPARENT(ByVal vData As Boolean)
    mvarWS_EX_TRANSPARENT = vData
End Property

Public Property Get WS_EX_TRANSPARENT() As Boolean
    WS_EX_TRANSPARENT = mvarWS_EX_TRANSPARENT
End Property

Public Property Let WS_EX_ACCEPTFILES(ByVal vData As Boolean)
    mvarWS_EX_ACCEPTFILES = vData
End Property

Public Property Get WS_EX_ACCEPTFILES() As Boolean
    WS_EX_ACCEPTFILES = mvarWS_EX_ACCEPTFILES
End Property

Public Property Let WS_EX_TOPMOST(ByVal vData As Boolean)
    mvarWS_EX_TOPMOST = vData
End Property

Public Property Get WS_EX_TOPMOST() As Boolean
    WS_EX_TOPMOST = mvarWS_EX_TOPMOST
End Property

Public Property Let WS_EX_NOPARENTNOTIFY(ByVal vData As Boolean)
    mvarWS_EX_NOPARENTNOTIFY = vData
End Property

Public Property Get WS_EX_NOPARENTNOTIFY() As Boolean
    WS_EX_NOPARENTNOTIFY = mvarWS_EX_NOPARENTNOTIFY
End Property

Public Property Let WS_EX_DLGMODALFRAME(ByVal vData As Boolean)
    mvarWS_EX_DLGMODALFRAME = vData
End Property

Public Property Get WS_EX_DLGMODALFRAME() As Boolean
    WS_EX_DLGMODALFRAME = mvarWS_EX_DLGMODALFRAME
End Property
